<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><title>R: Electrical Resistance of Kiwi Fruit</title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<link rel="stylesheet" type="text/css" href="R.css" />
</head><body>

<table width="100%" summary="page for fruitohms"><tr><td>fruitohms</td><td style="text-align: right;">R Documentation</td></tr></table>

<h2>Electrical Resistance of Kiwi Fruit</h2>

<h3>Description</h3>

<p>Data are from a study that examined how the electrical
resistance of a slab of kiwifruit changed with the apparent
juice content.
</p>


<h3>Usage</h3>

<pre>fruitohms</pre>


<h3>Format</h3>

<p>This data frame contains the following columns:
</p>

<dl>
<dt>juice</dt><dd><p>apparent juice content (percent) </p>
</dd>
<dt>ohms</dt><dd><p>electrical resistance (in ohms)</p>
</dd>
</dl>



<h3>Source</h3>

<p>Harker, F. R. and Maindonald J.H. 1994. Ripening of nectarine
fruit. <em>Plant Physiology</em> 106: 165 - 171.
</p>


<h3>Examples</h3>

<pre>
plot(ohms ~ juice, xlab="Apparent juice content (%)",ylab="Resistance (ohms)", data=fruitohms)
lines(lowess(fruitohms$juice, fruitohms$ohms), lwd=2)
pause()

require(splines)
attach(fruitohms)
plot(ohms ~ juice, cex=0.8, xlab="Apparent juice content (%)",
     ylab="Resistance (ohms)", type="n")
fruit.lmb4 &lt;- lm(ohms ~ bs(juice,4))
ord &lt;- order(juice)
lines(juice[ord], fitted(fruit.lmb4)[ord], lwd=2)
ci &lt;- predict(fruit.lmb4, interval="confidence")
lines(juice[ord], ci[ord,"lwr"])
lines(juice[ord], ci[ord,"upr"])
</pre>


</body></html>
